home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
FOODTION
/
COMPDIET.LZH
/
DIET.VAR
< prev
next >
Wrap
Text File
|
1985-05-17
|
1KB
|
47 lines
CONST
SZE:STRING[22]=' weighs approximately ';
LABEL iii,iv,ivi,ivii,0,1,2,5,7,10,12,15,18,19,20,22,23,24,25,30,35,39,40,44,45,46,48,50,55;
TYPE
ITEM=STRING[50];
FOOD=RECORD
NUMBER:REAL;
NAME:ITEM;
CAL: INTEGER;
CARBO:INTEGER;
PROT:INTEGER;
FAT:INTEGER;
CHOL:INTEGER;
END;
TXT=STRING[50];
REGISTERS=RECORD CASE INTEGER OF
1: (AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS: INTEGER);
2: (AL,AH,BL,BH,CL,CH,DL,DH: BYTE);
END;
VAR
MAN:FILE;
SUPPL:FILE;
MAIN:FILE;
FLAG:BYTE ABSOLUTE CSEG:$80;
FOODFILE: FILE OF FOOD;
FOODREC: FOOD;
G,H,I,J,K,L,Q,BC,FC,GC,SF,EF,NF: INTEGER;
A,B,C,WG:STRING[50];
D:STRING[100];
AA,BB,CC:STRING[88];
NAME: STRING[128];
CH,CR:CHAR;
FLIST:ARRAY[1..500] OF INTEGER;
AMT:ARRAY[1..99] OF STRING[15];
MEAS:ARRAY[1..9] OF STRING[255];
NSEL:ARRAY[1..42] OF STRING[40];
OSEL:ARRAY[1..42] OF REAL;
CLSEL:ARRAY[1..42] OF REAL;
CRSEL:ARRAY[1..42] OF REAL;
PSEL:ARRAY[1..42] OF REAL;
FSEL:ARRAY[1..42] OF REAL;
CHSEL:ARRAY[1..42] OF REAL;
U,V,W,XX,YY,ZZ,PORTION:REAL;
REG: REGISTERS;